!% -SD
!===============================================================
Constant Story "Oh My Elder-God^";

Include "Parser";
Include "VerbLib";

!================================================================
!The game Objects

! everything is broken and doesn't work and I ran out of time :-(

! /pub

Object 	pub "In a pub"
  with	description
  		"Things are mostly L-shaped bar and the stools lining it down this miserable little 
		shit-hole-in-the-wall you like to call home after a day of work.  There are a few 
		small tables scattered off and to the east of the bar, but they're for show; this 
		isn't the sort of place one comes to dine. A dimly lit passage in the back allows 
		access to the unisex restroom.",
	s_to PubDoor;

Object -> PubDoor "glass door"
  with	description "The tinted glass door looks dimly out to the store-front sidewalk.",
  	name 'glass door' 'door',
	react_before [;
			Go: if (noun.door_dir == self.door_dir)
				return self.open_by_myself();
			Enter: if (noun == self) return self.open_by_myself();
		     ],
	open_by_myself [ ks;
			if (self has open) rfalse;
			print "(first opening ", (the) self, ")^";
			ks = keep_silent; keep_silent = true;
			<Open self>; keep_silent = ks;
			if (self hasnt open) rtrue;
		      ],
	door_to [;
		if (self in pub) return sidewalk; return pub;
		],
	door_dir [;
		 if (self in pub) return s_to; return n_to;
		 ],
	found_in pub sidewalk,
  has	static door openable;

Object -> "passage"
  with	description 
  		"Just the small corrider leading to the restroom.",
  has	scenery;

Object	-> tables "small tables"
  with	name 'small' 'tables' 'table',
  	description
  		"Three square tables crowd the floor of the tavern and they would only be remarkable
		if someone were seated at any of them.",
  has	scenery;

Object -> bar "bar"
  with	name 'bar' 'l-shaped',
  	description
		"A fine resting place for drinks, elbows, and ashtrays. The bar stretches almost the 
		length of tavern, ending in a hinged section to allow access to rows and rows of
		sweet boozy goodness..",
  has	static supporter;

Object -> -> ashtray "ashtray"
  with	name 'ashtray' 'ash' 'tray',
	description 
		"A square glass ashtray with grooves at each corner.",
  has	container open;

Object -> -> -> cigarette "lit cigarette"
  with	name 'cigarette' 'lit' 'cig' 'square',
  	description
		"The glowing-red cherry of your cigarette steadily releases a thin stream
		of smoke into the air.";

Object -> -> beer "bottle of beer"
  with	name 'beer' 'bottle' 'swill' 'domestic',
  	description
		"A bottle of the very best domestic swill, and since you paid for it, you have the
		pleasure of drinking it.";

Object -> -> cigs "pack of cigarettes."
  with	name 'pack' 'cigarettes' 'cigs',
  	description
		"A half-empty pack of camels.";

Object -> -> cellphone "cell phone"
  with	name 'cell' 'cellular' 'phone' 'cellphone',
  	description
		"A small blue brick that anchors you to work and friends.  Monachromatic screen
		with standard dialing buttons.";

! sidwalk outside the pub

Object sidewalk "In front of the pub"
  with	description
  		"Here is the magical sidewalk connecting the pub to the other storefronts along
		this forgotten plaza.  Magical because it is usually clear and severe when you arrive
		yet rubbery and nearly ephemeral when you leave.  The entrance to the pub is north,
		next to the neon open sign.",
	n_to PubDoor;
!================================================================
! Entry point routines

[ 	Initialise; 
	location = pub;
	give player light;
	"^^And here you are again, at the pub.  Eight hours of spirit-crushing clerical work
	is best followed by four hours or so of drinking it away.  
	The place is not so bad, tonight, either.  All tuesday, all empty, except the 
	bartender and you, lit up real cozy-like by the dim, blue pendant lights above.^^";];

!================================================================
! Stnadard and extended grammar

Include "Grammar";

!================================================================